home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / uhr stellen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  522b  |  20 lines
  1. 100 rem echtzeituhr stellen
  2. 110 cia=56328:rem anfangsadresse von cia 1
  3. 120 print"geben sie die genaue uhrzeit ein"
  4. 130 print"   hhmmss[157][157][157][157][157][157][157][157]";:inputz$
  5. 140 hh=val(left$(z$,2))
  6. 150 mm=val(mid$(z$,3,2))
  7. 160 ss=val(right$(z$,2))
  8. 170 ifhh>23ormm>59orss>59thenprint"eingabefehler":goto120
  9. 180 if hh>12thenhh=hh-12:tm=1
  10. 190 poke cia+7, peek(cia+7) and 255-2^7
  11. 200 poke cia+6, peek(cia+6) or 2^7
  12. 210 q= int(hh/10)*16+hh-int(hh/10)*10
  13. 220 if tm=1 then q=q+128
  14. 230 poke cia+3,q
  15. 240 q= int(mm/10)*16+mm-int(mm/10)*10
  16. 250 poke cia+2,q
  17. 260 q= int(ss/10)*16+ss-int(ss/10)*10
  18. 270 poke cia+1,q
  19. 280 poke cia+0,0: rem uhr starten
  20.